(what-line): Avoid problems with field properties.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 031cdd4c4c8deea0abb3cdb384bd92d539812b6c..7f34380075c819a810d7e65c16994deaed241f1c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-18  Miles Bader  <miles@gnu.org>
+
+       * simple.el (what-line): Avoid problems with field properties.
+
 2001-10-17  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * wid-edit.el (widget-field-face, widget-single-line-field-face):

diff --git a/lisp/simple.el b/lisp/simple.el
index deb1737f4f9f84a3898b637256820783a5aa9e56..3879003b5572127d867e116d09adb8861cf285c3 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -456,10 +456,10 @@ that uses or sets the mark."
       (save-restriction
        (goto-char (point-min))
        (widen)
-       (beginning-of-line)
+       (forward-line 0)
        (setq start (point))
        (goto-char opoint)
-       (beginning-of-line)
+       (forward-line 0)
        (if (/= start 1)
            (message "line %d (narrowed line %d)"
                     (1+ (count-lines 1 (point)))